#########################################################################################
# The Prevalence of Conflict-Related Sexual Violence
# Present Results of List Experiments and Compare to Direct Items
# 
# Figure 2
# 
#########################################################################################

par(mfrow=c(1,1), mar=c(1, 3, 1, 0), cex.axis=.6, cex.lab=.8, cex.main=.8, las=1, mgp=c(1.5, .7, 0))

plot(c(1:3)-.2, c(c.ind.congo, c.ind.liberia, c.ind.sri), ylim=c(-.2, .3), xlim=c(.5, 3.5), pch=19, cex=.8, axes=F, xlab="", ylab="Estimate")
#grid(lty=1, lwd=.5, col="lightgrey")
segments(c(1:3)-.2, c(c.ind.congo-1.65*se.ind.congo, c.ind.liberia-1.65*se.ind.liberia, c.ind.sri-1.65*se.ind.sri), c(1:3)-.2, c(c.ind.congo+1.65*se.ind.congo, c.ind.liberia+1.65*se.ind.liberia, c.ind.sri+1.65*se.ind.sri))
axis(2, lty=0)
abline(h=0, lty=2, col="grey")

points(c(1:3), c(c.dir.congo, c.dir.liberia, c.dir.sri), pch=21, cex=.8)
segments(c(1:3), c(c.dir.congo-1.65*se.dir.congo, c.dir.liberia-1.65*se.dir.liberia, c.dir.sri-1.65*se.dir.sri), c(1:3), c(c.dir.congo+1.65*se.dir.congo, c.dir.liberia+1.65*se.dir.liberia, c.dir.sri+1.65*se.dir.sri))
points(c(1:3), c(c.dir.congo, c.dir.liberia, c.dir.sri), pch=19, cex=.6, col="white")

points(c(1:3)+.2, c(c.diff.congo, c.diff.liberia, c.diff.sri), pch=17, cex=.8)
segments(c(1:3)+.2, c(c.diff.congo-1.65*se.diff.congo, c.diff.liberia-1.65*se.diff.liberia, c.diff.sri-1.65*se.diff.sri), c(1:3)+.2, c(c.diff.congo+1.65*se.diff.congo, c.diff.liberia+1.65*se.diff.liberia, c.diff.sri+1.65*se.diff.sri))

text(c(2.8, 3, 3.2), c(c.ind.sri+1.65*se.ind.sri, c.dir.sri+1.65*se.dir.sri, c.diff.sri+1.65*se.diff.sri), c("List Experiment", "Direct Item", "Difference"), pos=3, cex=.6)

text(c(.8, 1, 1.2), c(c.ind.congo, c.dir.congo, c.diff.congo), c(round(c.ind.congo, 2), round(c.dir.congo, 2), round(c.diff.congo, 2)), pos=c(2, 2, 2), cex=.6)
text(c(1.8, 2, 2.2), c(c.ind.liberia, c.dir.liberia, c.diff.liberia), c(round(c.ind.liberia, 2), round(c.dir.liberia, 2), round(c.diff.liberia, 2)), pos=c(2, 2, 2), cex=.6)
text(c(2.8, 3, 3.2), c(c.ind.sri, c.dir.sri, c.diff.sri), c(round(c.ind.sri, 2), round(c.dir.sri, 2), round(c.diff.sri, 2)), pos=c(2, 2, 2), cex=.6)

text(c(1, 2, 3), c(.3, .3, .3), c("DRC", "Liberia", "Sri Lanka"), pos=1, cex=.8, font=2)
box(col="darkgrey")
#########################################################################################
